home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Context Menu Options.xpl < prev    next >
Text File  |  2001-05-14  |  2KB  |  76 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="Appearance\Files&Folders\ANY file"
  5. "NAME"="Any File Context Menu Options #1"
  6. "VERSION"="2.13"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Enable "QuickView..." for any file"
  9. "TEXT 2"="Enable "Open with..." for any file"
  10. "DESCRIPTION 1"="If you activate "Enable QuickView for any file", you can right-click any file and select "QuickView" from the appearing menu to have a look on it. Windows 2000, XP and Windows Millennium do not support this option, but you can install Quick View Plus instead."
  11. "DESCRIPTION 2"="WARNING: If this option is activated and you are using the Microsoft Office Shortcut Bar, the Shortcut Bar may not work correctly any longer. In this case, deactivate this option again and restart your PC."
  12. "DESCRIPTION 3"="Enable "Open with..." to easily change which program is used to open a file (by default, you need to hold down SHIFT and right-click a file to display this item). If it's activated, this option is automatically visible on the right-click menu."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="George W. Bush sucks!"
  17.  
  18.  
  19. bQE=true
  20. bDH=true
  21. bDH2=true
  22. Sub Plugin_Initialize 
  23.  s=RegReadValue("HKCR\*\QuickView\@")
  24.  if s="*" then 
  25.   SetUIElement 1,true
  26.  else
  27.   bQE=false
  28.  end if
  29.  
  30.  s=RegReadValue("HKCR\*\Shell\openas\command\@")
  31.  if not IsEmpty(s) then
  32.   SetUIElement 2,true
  33.  else
  34.   SetUIElement 2,false
  35.  end if
  36. End Sub
  37.  
  38. Sub Plugin_CheckData(ElementIndex)
  39. End Sub
  40.  
  41. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  42.  bW9x=false
  43.  if GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then      'Windows 95/98/ME
  44.     bW9x=true
  45.  end if
  46.  
  47.  
  48.  b=GetUIElement(1)
  49.  if b=true then
  50.   Call RegWriteValue("HKCR\*\QuickView\@","*",1)
  51.  else
  52.   if bQE=true then
  53.    Call RegDeletePath("HKCR\*\QuickView")
  54.   end if
  55.  end if
  56.  
  57.  
  58.  b=getuielement(2)
  59.  if b=true then
  60.   call RegWriteValue("HKCR\*\Shell\openas\command\@","rundll32.exe shell32.dll,OpenAs_RunDLL ""%1""",1)
  61.   call RegWriteValue("HKCR\*\Shell\openas\@","Open with...",1)
  62.  else
  63.   'delete! lts of work!
  64.   if RegPathExists("HKCR\*\Shell\openas\command") then
  65.      Call RegDeletePath("HKCR\*\Shell\openas\command")
  66.   end if
  67.  
  68.   if RegPathExists("HKCR\*\Shell\openas") then
  69.      Call RegDeletePath("HKCR\*\Shell\openas")
  70.   end if
  71.  end if
  72. End Sub
  73.  
  74. Sub Plugin_Terminate 
  75. End Sub
  76.